The Arsenal Files 6

home *** CD-ROM | disk | FTP | other *** search

/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / mbox112.zip / MAILBOX.WCX (.txt) < prev next >

Wrap

Wildcat! WCX | 1996-02-13 | 14KB | 1,050 lines

'! Decompiled with wccNosy version 4.20f (freeware) '! Input File: in.wcx 13647 bytes 01/28/123 08:37:10pm '! Code Segment Size :11637 bytes '! Data Segment Size :8249 bytes '! String Segment Size:2010 bytes '! Compiled with WCC version 4.10 Type Type31 b0 As Byte s1 As String*160 End Type Type Type30 w0 As Word s2 As String*1 w3 As Word s5 As String*70 s75 As String*70 dt145 As DateTime End Type Type Type29 Filler0(1 To 4) As Byte w4 As Word s6 As String*70 Filler76(1 To 10) As Byte l86 As Long s90 As String*70 Filler160(1 To 14) As Byte s174 As String*70 Filler244(1 To 20) As Byte w264 As Word Filler266(1 To 20) As Byte s286 As String*12 s298 As String*12 End Type Type Type28 Filler0(1 To 90) As Byte s90 As String*70 Filler160(1 To 14) As Byte s174 As String*70 Filler244(1 To 20) As Byte w264 As Word End Type Type Type27 s0 As String*70 s70 As String*70 w140 As Word End Type Type Type26 i0 As Integer s2 As String*1 i3 As Integer s5 As String*70 s75 As String*70 d145 As Date End Type Declare Sub Sub6750 Declare Sub Sub7620 Declare Sub Sub8586 Declare Sub Sub10138 Declare Sub Sub11206(s65534 As String) Declare Function Func11465(i65534 As Integer) As String Dim s4463 As String Dim s4467 As String Dim l4471 As Long Dim l4475 As Long Dim o4479 As Boolean Dim w4484 As Word Dim t26_4486 As Type26 Dim w4637 As Word Dim w4639 As Word Dim mh4641 As MessageHeader Dim mh4961 As MessageHeader Dim s5281 As String*70 Dim b5351 As Byte Dim s5352 As String Dim s5356 As String Dim s5360 As String Dim s5364 As String Dim w5368 As Word Dim b5372 As Byte Dim ur5373 As UserRecord Dim s6023 As String Dim s6027 As String Dim b6031 As Byte Dim w6032 As Word Dim b6034 As Byte Dim w6035 As Word Dim w6037 As Word Dim b6039 As Byte Dim mh6040 As MessageHeader Dim s6360 As String Dim t27_6364 As Type27 Dim s6506 As String Dim s6510 As String Dim s6514 As String Dim sp6518 As SecurityProfile Dim i8243(0 To 2) As Integer Dim l65257_ As Long Dim w65261_ As Word Dim l65263_ As Long Dim b65267_ As Byte Dim i65268_ As Integer '! Temporary Dim i65270_ As Integer '! Temporary Dim i65272_ As Integer '! Temporary Dim i65274_ As Integer '! Temporary Dim i65276_ As Integer '! Temporary Dim i65278_ As Integer '! Temporary Dim i65280_ As Integer '! Temporary Dim i65282_ As Integer '! Temporary Dim l65284_ As Long Dim b65288_ As Byte Dim i65289_ As Integer '! Temporary Dim i65291_ As Integer '! Temporary Dim i65293_ As Integer '! Temporary Dim i65295_ As Integer '! Temporary Dim l65297_ As Long Dim b65301_ As Byte Dim i65302_ As Integer '! Temporary Dim i65304_ As Integer '! Temporary Dim i65306_ As Integer '! Temporary Dim i65308_ As Integer '! Temporary Dim i65310_ As Integer '! Temporary Dim i65312_ As Integer '! Temporary Dim i65314_ As Integer '! Temporary Dim i65316_ As Integer '! Temporary Dim i65318_ As Integer '! Temporary Dim i65320_ As Integer '! Temporary Dim i65322_ As Integer '! Temporary Dim i65324_ As Integer '! Temporary Dim i65326_ As Integer '! Temporary Dim i65328_ As Integer '! Temporary Dim i65330_ As Integer '! Temporary Dim i65332_ As Integer '! Temporary Dim i65334_ As Integer '! Temporary Dim i65336_ As Integer '! Temporary Dim i65338_ As Integer '! Temporary Dim i65340_ As Integer '! Temporary Dim i65342_ As Integer '! Temporary Dim i65344_ As Integer '! Temporary Dim i65346_ As Integer '! Temporary Dim i65348_ As Integer '! Temporary Dim i65350_ As Integer '! Temporary Dim i65352_ As Integer '! Temporary Dim i65354_ As Integer '! Temporary Dim l65356_ As Long Dim w65360_ As Word Dim i65362_ As Integer '! Temporary Dim i65364_ As Integer '! Temporary Dim l65366_ As Long Dim b65370_ As Byte Dim l65371_ As Long Dim b65375_ As Byte Dim l65376_ As Long Dim w65380_ As Word Dim l65382_ As Long Dim b65386_ As Byte Dim l65387_ As Long Dim b65391_ As Byte Dim s65392_ As String '! Temporary Dim s65396_ As String*70 Dim s65466_ As String*70 Sub11206(("MAILBOX.PRM")) If Exists("mailbox.cfg") Then Open "mailbox.cfg" For Input As 1 Else 103 Print "ERROR: Unable to locate MAILBOX.CFG file." WaitEnter Stop End If 118 Input #1, s4463 Input #1, s4467 Input #1, l4471 Input #1, s5352 If Right(s5352, 1) <> "\" Then s5352 = s5352 + "\" End If 184 o4479 = 0 s6510 = EncodePassword(s4467) s6510 = s6510 + s4463 + "MdBiXg1" s6510 = EncodePassword(s6510) l4475 = 0 b6034 = Len(s6510) If b6034 > 10 Then b6034 = 10 End If 273 297 For b6031 = 1 To b6034 Step 1 l4475 = l4475 + Asc(Mid(s6510, b6031, 1)) * 5 ^ b6031 Next 417 If l4475 = l4471 Then o4479 = -1 End If 443 Print Print "Welcome to Cynosure Mailbox v1.12." Print "Copyright 1996, Doug Granzow." Print w4484 = Conference.Number If o4479 Then Print "Registered to: "; s4463 Else 512 Print "*** UNREGISTERED VERSION ***"; Chr(7) Print Print "Please encourage your sysop to register this program" Print "with Cynosure Online (410-781-6271)." Print Delay 8 End If 558 Delay 1.5 s5360 = s5352 + Str(User.UserId) + ".BOK" s5356 = s5352 + Str(User.UserId) + ".BOX" Input #1, s6360 If Right(s6360, 1) <> "\" Then s6360 = s6360 + "\" End If 668 s6360 = s6360 + Str(User.UserId) + ".SIG" Input #1, s6506 If Right(s6506, 1) <> "\" Then s6506 = s6506 + "\" End If 741 s6506 = s6506 + Str(User.UserId) + ".ADF" Input #1, w6032 s5364 = s5352 + "lock.tmp" 814 For b6034 = 1 To 2 Step 1 Input #1, i8243(b6034) Next 919 Close 1 Sub10138 s6023 = TempPath + "emailmsg.txt" w4637 = 1 b5351 = 0 Open s5356 For Random As 4 Len = 151 '! This value should probably be replaced with a "SizeOf" expression 1000 For w4637 = 1 To LOF(4) Step 1 Get 4, w4637, t26_4486 '! 151 bytes Join t26_4486.i3 GetMessage(mh4641, t26_4486.i0) If t26_4486.i0 <> mh4641.Number Or mh4641.Flags And 512 Then 1159 For b6031 = w4637 + 1 To LOF(4) Step 1 Get 4, b6031, t26_4486 '! 151 bytes Put 4, b6031 - 1, t26_4486 '! 151 bytes Next 1266 t26_4486.i0 = 0 Put 4, LOF(4), t26_4486 '! 151 bytes Else 1293 If t26_4486.s2 = "N" And mh4641.Flags And 4 Then t26_4486.s2 = " " Put 4, w4637, t26_4486 '! 151 bytes End If End If 1362 Next 1385 Open s6506 For Random As 1 Len = 142 '! This value should probably be replaced with a "SizeOf" expression If LOF(1) < 40 Then t27_6364.s70 = "" t27_6364.s0 = "" t27_6364.w140 = 0 1483 For b6031 = LOF(1) + 1 To 40 Step 1 Put 1, b6031, t27_6364 '! 142 bytes Next End If 1571 Close 1 b5372 = 0 1582 Do While b5351 = 0 Cls Print Func11465((1)) Print Func11465((2)) 1692 For w4637 = b5372 * 17 + 1 To b5372 * 17 + 17 Step 1 If w4637 <= LOF(4) Then Get 4, w4637, t26_4486 '! 151 bytes If t26_4486.i0 <> 0 Then Print Func11465((52)); Print Right(" " + Str(w4637) + "." + Func11465((59)) + t26_4486.s2, 9); Print Func11465((53)); Left(t26_4486.s5 + String(25, " "), 25); Print Func11465((54)); Left(" " + t26_4486.s75 + String(41, " "), 41); Print Func11465((55)); FormatDate(t26_4486.d145, "mm/dd/yy"); Print Else 2043 If w4637 = 1 Then Print Func11465((13)) End If End If End If 2083 Next 2106 Print Print Func11465((3)); Print Func11465((4)); Print Func11465((6)); Print Func11465((8)) Print Func11465((9)); Print Func11465((11)); Print Func11465((12)); s5281 = UCase(InputMask("", "XXX", "", 1213417543)) w4637 = 0 s65466_ = s5281 If s65466_ = "N" Then GoTo 2371 If s65466_ = "" Then 2371 If (b5372 + 1) * 17 > LOF(4) Then Print Func11465((16)) Else 2428 Get 4, (b5372 + 1) * 17, t26_4486 '! 151 bytes If t26_4486.i0 = 0 Then Print Func11465((16)) Else 2496 b5372 = b5372 + 1 End If End If 2510 Else 2516 If s65466_ = "P" Then If b5372 < 1 Then Print Func11465((15)) Else 2581 b5372 = b5372 - 1 End If 2595 Else 2601 If s65466_ = "S" Then GetSecProfile(sp6518, User.SecLevel) If sp6518.AccessConfWrite(i8243(2)) Then Cls mh6040.Flags = 1 If Exists(s6360) Then Print Print Func11465((51)) Else 2736 Print Print Func11465((20)) Print Func11465((21)) End If 2788 mh6040.To = "" Sub7620 If mh6040.To > "" Then Print Print Func11465((47)) Print mh6040.Subject = InputMask(Func11465((48)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543) If Conference.CFlags Mod 64 >= 32 Then Print Print Func11465((28)) Print If InputYesNo(Func11465((29)), 0) Then mh6040.Flags = mh6040.Flags + 8 End If End If 3018 Print Kill "mailtemp.txt" If EditMessage(mh6040, "mailtemp.txt", 1213417543) Then Open "mailtemp.txt" For Append As 1 If Exists(s6360) Then Print #1, Open s6360 For Input As 2 3105 Do While Not EOF(2) Input #2, s6510 Print #1, s6510 Loop 3140 Close 2 End If 3145 If Not o4479 Then Print #1, Print #1, "** Message sent with unregistered version of Cynosure Mailbox" End If 3171 Close 1 AddMessage(mh6040, "mailtemp.txt", "", w4639) Print InputMask(Func11465((30)), "X", "", 1213417543) End If 3240 Kill "mailtemp.txt" End If 3248 Else 3254 Cls Print Func11465((31)) Print WaitEnter End If 3287 Else 3293 If s65466_ = "K" Then Print s6510 = InputMask(Func11465((32)), "XXXXXXXXXXXX", "", 1213417543) + "," Print Func11465((49)) 3389 Do While InStr(s6510, ",") > 0 s6514 = Left(s6510, InStr(s6510, ",") - 1) If InStr(s6514, "-") > 0 Then w6035 = Val(Left(s6514, InStr(s6514, "-") - 1)) Else 3495 w6035 = Val(s6514) End If 3507 If w6035 > LOF(4) Then w6035 = 0 End If 3531 If w6035 > 0 Then If InStr(s6514, "-") > 0 Then w6037 = Val(Mid(s6514, InStr(s6514, "-") + 1, 4)) If w6037 > LOF(4) Then w6037 = 0 End If 3623 Else 3629 w6037 = w6035 End If 3639 If w6037 >= w6035 Then 3684 For b6031 = w6035 To w6037 Step 1 Get 4, b6031, t26_4486 '! 151 bytes Join t26_4486.i3 GetMessage(mh4641, t26_4486.i0) If t26_4486.s2 = "N" Then CurrentDateTime mh4641.ReadTime End If 3807 If Not (mh4641.Flags And 512) Then mh4641.Flags = mh4641.Flags + 512 End If 3855 UpdateMessage(mh4641, "") t26_4486.s2 = "D" t26_4486.i0 = 0 Put 4, b6031, t26_4486 '! 151 bytes Next End If End If 3926 s6510 = Mid(s6510, InStr(s6510, ",") + 1, 1213417543) Loop 3964 Else 3970 If s65466_ = "R" Then w4637 = InputNumber(Func11465((33)), 0, LOF(4)) If w4637 > 0 Then Sub6750 End If 4044 Else 4050 If s65466_ = "Q" Then b5351 = 1 Else 4082 w4637 = Val(s5281) 4096 Do While b5351 = 0 If w4637 > 0 And w4637 <= LOF(4) Then Get 4, w4637, t26_4486 '! 151 bytes If t26_4486.i0 > 0 Then Join t26_4486.i3 GetMessage(mh4641, t26_4486.i0) If mh4641.Number = t26_4486.i0 Then Cls SubText 1, mh4641.From SubText 2, " " DisplayPrompt 544 Print SubText 1, mh4641.To DisplayPrompt 545 Print SubText 1, mh4641.Subject DisplayPrompt 546 Print SubText 1, Str(mh4641.Number) SubText 2, Str(GetHighMessage) SubText 3, " " s6510 = FormatDate(mh4641.MsgTime.D, "mm/dd/yy ") + FormatTime(mh4641.MsgTime.T, "hh:mm te") SubText 4, s6510 DisplayPrompt 547 Print DisplayPrompt 555 Print If t26_4486.s2 = "N" Then CurrentDateTime mh4641.ReadTime UpdateMessage(mh4641, "") t26_4486.s2 = " " Put 4, w4637, t26_4486 '! 151 bytes End If 4474 Print GetMessageText(t26_4486.i0, s6023) DisplayTextFile(s6023) MarkMessageRead(mh4641.Number) If mh4641.InternalAttach > "" Then SubText 1, mh4641.ExternalAttach DisplayPrompt 558 Print Print Func11465((50)); End If 4583 s5281 = UCase(InputMask(Func11465((34)), "X", "", 1213417543)) If s5281 = "X" Then s5281 = UCase(InputMask(Func11465((60)), "X", "", 1213417543)) End If 4698 s65396_ = s5281 If s65396_ = "R" Then Sub6750 Else 4741 If s65396_ = "K" Then mh4641.Flags = mh4641.Flags + 512 t26_4486.s2 = "D" UpdateMessage(mh4641, "") 4843 For b6031 = w4637 + 1 To LOF(4) Step 1 Get 4, b6031, t26_4486 '! 151 bytes Put 4, b6031 - 1, t26_4486 '! 151 bytes Next 4950 t26_4486.i0 = 0 Put 4, LOF(4), t26_4486 '! 151 bytes Else 4977 If s65396_ = "P" Then w4637 = w4637 - 1 Else 5016 If s65396_ = "A" Then w4637 = w4637 Else 5051 If s65396_ = "X" Then w4637 = w4637 Else 5086 If s65396_ = "B" Then Open s6506 For Random As 1 Len = 142 '! This value should probably be replaced with a "SizeOf" expression b5351 = 0 b6031 = 1 5137 Do While b5351 = 0 Get 1, b6031, t27_6364 '! 142 bytes If t27_6364.s0 = "" Then t27_6364.s0 = mh4641.From Put 1, b6031, t27_6364 '! 142 bytes Print SubText 1, mh4641.From Print Func11465((61)) Print WaitEnter b5351 = 1 End If 5270 b6031 = b6031 + 1 If b6031 > 40 Then Print Print Func11465((36)) Print WaitEnter b5351 = 1 End If 5338 Loop 5344 b5351 = 0 Close 1 Else 5361 If s65396_ = "S" Then SendFile(s6023, 1213417543) WaitEnter Else 5402 If s65396_ = "F" Then Print Print Func11465((63)) Sub7620 mh6040.Subject = Func11465((62)) + " " + mh4641.Subject mh6040.Subject = InputMask(Func11465((48)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", mh6040.Subject, 1213417543) mh6040.Number = 0 mh6040.Flags = 1 If mh6040.To <> "" Then Open s6023 For Input As 2 Open "tempfile.txt" For Output As 1 Print #1, " -- Begin forwarded message --" 5652 Do While Not EOF(2) Input #2, s6510 Print #1, s6510 Loop 5687 Close 2 Print #1, " -- End forwarded message --" If Exists(s6360) Then Print #1, Open s6360 For Input As 2 5737 Do While Not EOF(2) Input #2, s6510 Print #1, s6510 Loop 5772 Close 2 End If 5777 If Not o4479 Then Print #1, Print #1, "** Message sent with unregistered version of Cynosure Mailbox" End If 5803 Close 1 AddMessage(mh6040, "tempfile.txt", "", w4639) InputMask(Func11465((30)), "X", "", 1213417543) End If 5870 Else 5876 If s65396_ = "Q" Then b5351 = 1 Else 5908 If s65396_ = "D" Then If mh4641.InternalAttach > "" Then Print Func11465((49)) s6027 = "wcwork\node" + Str(MakeWild.NodeId) + "\" + mh4641.ExternalAttach CopyFile(Conference.AttachPath + mh4641.InternalAttach, s6027) SendFile(s6027, 1213417543) Del s6027 End If 6072 Else 6078 w4637 = w4637 + 1 End If End If End If End If End If End If End If End If End If End If 6092 Else 6098 Print Print Func11465((14)) Print 6158 For b6031 = w4637 + 1 To LOF(4) Step 1 Get 4, b6031, t26_4486 '! 151 bytes Put 4, b6031 - 1, t26_4486 '! 151 bytes Next 6265 WaitEnter b5351 = 1 End If 6275 Else 6281 b5351 = 1 End If 6288 Else 6294 b5351 = 1 End If 6301 Loop 6307 b5351 = 0 End If End If End If End If End If End If 6313 Loop 6319 Close 4 Open s5364 For Output As 3 If LockFile(3, 1, 64) Then If Exists(s5360) Then Del s5360 End If 6378 If Exists(s5356) Then Name s5356 As s5360 End If 6402 Open s5356 For Random As 1 Len = 151 '! This value should probably be replaced with a "SizeOf" expression Open s5360 For Random As 2 Len = 151 '! This value should probably be replaced with a "SizeOf" expression w5368 = 1 6471 For w4637 = 1 To LOF(2) Step 1 Get 2, w4637, t26_4486 '! 151 bytes If t26_4486.i0 > 0 Then Put 1, w5368, t26_4486 '! 151 bytes w5368 = w5368 + 1 End If 6579 Next 6602 Close 2 Close 1 End If 6612 UnlockFile(3, 1, 64) Close 3 Del s5360 Join w4484 If Not o4479 Then Print Print "Thank you for using Cynosure Mailbox for Wildcat!" Print "Please encourage your sysop to REGISTER this program" Print "with Cynosure Online at 410-781-6271." Print Delay 8 End If 6694 '! Called 2 times Sub Sub6750 Dim i65524 As Integer '! Temporary Dim i65526 As Integer '! Temporary Dim i65528 As Integer '! Temporary Dim i65530 As Integer '! Temporary Dim i65532 As Integer '! Temporary Dim i65534 As Integer '! Temporary Get 4, w4637, t26_4486 '! 151 bytes Join t26_4486.i3 GetMessage(mh4641, t26_4486.i0) mh4961.Number = 0 If Conference.CFlags And 128 Then mh4961.From = User.Alias Else 6855 mh4961.From = User.Name End If 6875 mh4961.FromId = User.UserId If Exists(s6360) Then Print Print Func11465((51)) Else 6939 Print Print Func11465((20)) Print Func11465((21)) End If 6991 Print mh4961.InternalAttach = "" mh4961.ExternalAttach = "" mh4961.To = mh4641.From mh4961.To = InputMask("To ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", mh4961.To, 1213417543) mh4961.Subject = mh4641.Subject mh4961.Subject = InputMask(Func11465((48)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", mh4961.Subject, 1213417543) GetMessageText(mh4641.Number, "tempfile.txt") Open "tempfile.txt" For Input As 1 Open "tempfil2.txt" For Output As 2 w6032 = 0 7221 Do While Not EOF(1) And w6032 < 150 w6032 = w6032 + 1 Input #1, s6510 Print #2, ">"; s6510 Loop 7288 Close 1 Kill "tempfile.txt" Close 2 mh4961.Flags = 1 If Conference.CFlags Mod 64 >= 32 Then If InputYesNo(Func11465((29)), 0) Then mh4961.Flags = mh4961.Flags + 8 End If End If 7397 If EditMessage(mh4961, "tempfil2.txt", 1213417543) Then Open "tempfil2.txt" For Append As 1 If Exists(s6360) Then Print #1, Open s6360 For Input As 2 7474 Do While Not EOF(2) Input #2, s6510 Print #1, s6510 Loop 7509 Close 2 End If 7514 If Not o4479 Then Print #1, Print #1, "** Message sent with unregistered version of Cynosure Mailbox" End If 7540 Close 1 AddMessage(mh4961, "tempfil2.txt", "", 1213417543) Print InputMask(Func11465((30)), "X", "", 1213417543) End If 7609 Kill "tempfil2.txt" End Sub '! Called 2 times Sub Sub7620 Dim i65517 As Integer '! Temporary Dim i65519 As Integer '! Temporary Dim i65521 As Integer '! Temporary Dim l65523 As Long Dim b65527 As Byte Dim i65528 As Integer '! Temporary Dim i65530 As Integer '! Temporary Dim i65532 As Integer '! Temporary Dim i65534 As Integer '! Temporary mh6040.InternalAttach = "" mh6040.ExternalAttach = "" mh6040.ToId = 0 Print Print Func11465((17)) Print Func11465((18)) Print Func11465((19)) Print mh6040.To = InputMask("To ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", mh6040.To, 1213417543) b6031 = 0 If mh6040.To = "?" Then Print Print Func11465((23)) Print Open s6506 For Random As 1 Len = 142 '! This value should probably be replaced with a "SizeOf" expression 7886 For b6031 = 1 To 40 Step 1 Get 1, b6031, t27_6364 '! 142 bytes If t27_6364.s0 > "" Then Print b6031; ". "; t27_6364.s0; " ("; t27_6364.s70; ")" End If 8020 Next 8043 Print Print Func11465((24)); Input s6510 b6031 = Val(s6510) Get 1, b6031, t27_6364 '! 142 bytes Close 1 mh6040.To = t27_6364.s0 End If 8124 If UCase(mh6040.To) = "E" Then Sub8586 mh6040.To = "" End If 8171 If Val(mh6040.To) > 0 And Val(mh6040.To) <= 40 Then b6031 = Val(mh6040.To) Open s6506 For Random As 1 Len = 142 '! This value should probably be replaced with a "SizeOf" expression Get 1, b6031, t27_6364 '! 142 bytes Close 1 mh6040.To = t27_6364.s0 Print Print Func11465((27)); mh6040.To End If 8324 If InStr(mh6040.To, "@") > 0 Then w4639 = i8243(2) Else 8388 w4639 = i8243(1) If Not GetUser(ur5373, mh6040.To) Then Print Print Func11465((26)) Print WaitEnter mh6040.To = "" End If End If 8490 Join w4639 If Conference.CFlags And 128 Then mh6040.From = User.Alias Else 8545 mh6040.From = User.Name End If 8565 mh6040.FromId = User.UserId End Sub '! Called 1 time Sub Sub8586 Dim i65420 As Integer '! Temporary Dim i65422 As Integer '! Temporary Dim i65424 As Integer '! Temporary Dim i65426 As Integer '! Temporary Dim i65428 As Integer '! Temporary Dim i65430 As Integer '! Temporary Dim i65432 As Integer '! Temporary Dim i65434 As Integer '! Temporary Dim i65436 As Integer '! Temporary Dim i65438 As Integer '! Temporary Dim i65440 As Integer '! Temporary Dim i65442 As Integer '! Temporary Dim i65444 As Integer '! Temporary Dim i65446 As Integer '! Temporary Dim l65448 As Long Dim b65452 As Byte Dim i65453 As Integer '! Temporary Dim i65455 As Integer '! Temporary Dim i65457 As Integer '! Temporary Dim i65459 As Integer '! Temporary Dim l65461 As Long Dim b65465 As Byte Dim s65466 As String*70 Open s6506 For Random As 1 Len = 142 '! This value should probably be replaced with a "SizeOf" expression b5351 = 0 8620 Do While b5351 = 0 Cls 8658 For b6031 = 1 To 40 Step 1 Get 1, b6031, t27_6364 '! 142 bytes If t27_6364.s0 <> "" Then Print Func11465((56)); Right(" " + Str(b6031), 2); ". "; Print Func11465((57)); t27_6364.s0; Print Func11465((58)); " ("; t27_6364.s70; ")" End If 8876 Next 8899 Print s5281 = UCase(InputMask(Func11465((35)), "X", "", 1213417543)) s65466 = s5281 If s65466 = "A" Then b6039 = 0 9007 For b6031 = 1 To 40 Step 1 Get 1, b6031, t27_6364 '! 142 bytes If t27_6364.s0 = "" Then If b6039 = 0 Then b6039 = b6031 b6031 = 40 End If End If 9122 Next 9145 If b6039 = 0 Then Print Print Func11465((36)) Print WaitEnter Else 9197 Get 1, b6039, t27_6364 '! 142 bytes Print Print Func11465((37)) t27_6364.s0 = InputMask(Func11465((38)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543) Print Print Func11465((39)) t27_6364.s70 = InputMask(Func11465((40)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543) t27_6364.w140 = 0 Put 1, b6039, t27_6364 '! 142 bytes End If 9385 Else 9391 If s65466 = "D" Then b6031 = Val(InputMask(Func11465((41)), "XX", "", 1213417543)) If b6031 > 0 And b6031 <= 40 Then t27_6364.s0 = "" Put 1, b6031, t27_6364 '! 142 bytes End If 9508 Else 9514 If s65466 = "M" Then b6031 = Val(InputMask(Func11465((42)), "XX", "", 1213417543)) If b6031 > 0 And b6031 <= 40 Then b6039 = Val(InputMask(Func11465((43)), "XX", "", 1213417543)) If b6039 > 0 And b6039 <= 40 Then Get 1, b6039, t27_6364 '! 142 bytes If t27_6364.s0 = "" Then Get 1, b6031, t27_6364 '! 142 bytes Put 1, b6039, t27_6364 '! 142 bytes t27_6364.s0 = "" Put 1, b6031, t27_6364 '! 142 bytes Else 9773 Print Print Func11465((44)) Print WaitEnter End If End If End If 9805 Else 9811 If s65466 = "E" Then b6031 = Val(InputMask(Func11465((45)), "XX", "", 1213417543)) If b6031 > 0 And b6031 <= 40 Then Print Print Func11465((37)) Get 1, b6031, t27_6364 '! 142 bytes t27_6364.s0 = InputMask(Func11465((38)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543) Print Print Func11465((39)) t27_6364.s70 = InputMask(Func11465((40)), "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543) Put 1, b6031, t27_6364 '! 142 bytes End If 10080 Else 10086 If s65466 = "Q" Then b5351 = 1 Close 1 GoTo 10123 End If End If End If End If End If 10123 Loop 10129 b5351 = 0 End Sub '! Called 1 time Sub Sub10138 Dim i65366 As Integer '! Temporary Dim s65368 As String Dim i65372(0 To 2) As Integer Dim b65378 As Byte Dim i65379 As Integer Dim t30_65381 As Type30 Dim s65532 As String CarrierCheck(0) b65378 = 1 b5351 = 0 s65368 = s5352 + "main.box" Open s5364 For Output As 3 If LockFile(3, 1, 64) Then If Exists(s65368) Then Open s65368 For Input As 1 Input #1, i65372(1) Input #1, i65372(2) Close 1 Else 10315 i65372(1) = 0 i65372(2) = 0 End If 10369 Kill s65368 Open s65368 For Output As 2 Print Func11465((46)) 10420 Do While b5351 = 0 Join i8243(b65378) If Conference.Number = i8243(b65378) Then If Not GetMessage(mh4641, i65372(b65378)) Then 10556 Do While b5351 = 0 i65372(b65378) = i65372(b65378) - 1 If i65372(b65378) > GetLowMessage Then If GetMessage(mh4641, i65372(b65378)) Then b5351 = 1 End If 10720 Else 10726 b5351 = 1 End If 10733 Loop 10739 b5351 = 1 End If 10746 Do While GetNextMessage(mh4641) If mh4641.ToId > 0 And mh4641.Flags Mod 1024 < 512 Then s65532 = s5352 + Str(mh4641.ToId) + ".BOX" Open s65532 For Random As 1 Len = 151 '! This value should probably be replaced with a "SizeOf" expression i65379 = LOF(1) + 1 t30_65381.w0 = mh4641.Number If mh4641.Flags Mod 8 < 4 Then t30_65381.s2 = "N" Else 10919 t30_65381.s2 = " " End If 10934 t30_65381.w3 = i8243(b65378) t30_65381.s5 = mh4641.From t30_65381.s75 = mh4641.Subject t30_65381.dt145 = mh4641.MsgTime '! 6 bytes Put 1, i65379, t30_65381 '! 151 bytes Close 1 End If 11049 Loop 11055 i65372(b65378) = mh4641.Number End If 11093 Print #2, i65372(b65378) If b65378 = 1 Then b65378 = 2 Else 11155 b5351 = 1 End If 11162 Loop 11168 UnlockFile(3, 1, 64) Close 2 End If 11183 Close 3 CarrierCheck(-1) End Sub '! Called 1 time Sub Sub11206(s65534 As String) If User.Language <> "" Then If Exists(MakeWild.LanguagePath + User.Language + "\" + s65534) Then Open MakeWild.LanguagePath + User.Language + "\" + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression GoTo 11462 End If End If 11347 If Exists(MakeWild.LanguagePath + s65534) Then Open MakeWild.LanguagePath + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression GoTo 11462 End If 11415 Error 10 Catch 10 Print "Unable to open prompt file: "; s65534 WaitEnter End GoTo 11462 11462 End Sub '! Called 73 times Function Func11465(i65534 As Integer) As String Dim s65365 As String Dim t31_65369 As Type31 If RIPEnabled Then i65534 = i65534 + LOF(9) / 2 End If 11514 Get 9, i65534, t31_65369 '! 161 bytes s65365 = Left(t31_65369.s1, t31_65369.b0) If Left(s65365, 2) = "<<" Then DisplayTextFile(Mid(s65365, 3, Len(s65365) - 2)) Func11465 = "" Else 11614 Func11465 = s65365 End If 11622 End Function